home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / dsp / dspgroup / macros.arc / INC.ASM < prev    next >
Encoding:
Assembly Source File  |  1983-11-17  |  1.3 KB  |  17 lines
  1.  
  2. *INCREMENT AC, AR, OR MEM                                                       
  3. *                                                                               
  4. INC    $MACRO  A,B       INCREMENT                                              
  5.        $IF  A.L=0                                                               
  6.        $IF  B.L=0                                                               
  7.        ADD  ONE,0        INCREMENT AC                                           
  8.        $ELSE                                                                    
  9.        LARP :B:          LOAD ARP WITH :B:                                      
  10.        MAR  *+           INCREMENT                                              
  11.        $ENDIF                                                                   
  12.        $ELSE                                                                    
  13.        LAC  :A:,0        LOAD :A:                                               
  14.        ADD  ONE,0        INCREMENT                                              
  15.        SACL :A:,0        SAVE :A:                                               
  16.        $ENDIF                                                                   
  17.        $END